home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / STR#_805.txt < prev    next >
Text File  |  1996-11-01  |  939b  |  46 lines
  1. epnul
  2.  
  3. /startnup where{begin startnup end}if
  4.  
  5. gsave 1 setgray newpath 0 0 moveto 0 1 rlineto 1 0 rlineto 0 -1 rlineto closepath eofill grestore
  6.  
  7. exec
  8.  
  9. /image load
  10.  
  11. systemdict/image get
  12.  
  13. {currentfile qxpstr readhexstring pop/qxpi 0 def{255 exch sub qxpstr qxpi
  14.  3 -1 roll put/qxpi qxpi 1 add def}forall qxpstr}
  15.  
  16. {currentfile qxpstr readhexstring pop}
  17.  
  18. {currentfile qxpstr readstring pop}
  19.  
  20. string/qxpstr exch def 8[3 index 0 0 5 index neg 0 7 index]
  21.  
  22. 2 dict begin
  23.  
  24. /demohel exch definefont[120 0 0 -120 0 0]makefont setfont
  25.  
  26. /StrokeWidth 8 def currentdict end
  27.  
  28. /PaintType 2 def
  29.  
  30. {1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall
  31.  
  32. /Helvetica findfont dup maxlength 1 add dict begin
  33.  
  34. ***
  35.  
  36. /Symbol FF def
  37.  
  38. exch known {exch}if pop findfont}B
  39.  
  40. /FF{dup 256 string cvs (|______) exch MN cvn dup FontDirectory
  41.  
  42. Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}B
  43.  
  44. /MN{1 index length /Len exch def dup length Len add string dup
  45.  
  46.